1400
Is it possible to define my values for sorting
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortUserDataString
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "C2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Cell 1" to h
		Set ComCellData of hoItems h 0 to "3.your extra data"
		Set ComCellValue of hoItems h 1 to "SortValue=3"
		Get ComAddItem of hoItems "Cell 1.1" to h
		Set ComCellData of hoItems h 0 to "1.your extra data"
		Set ComCellValue of hoItems h 1 to " SortValue=1"
		Get ComAddItem of hoItems "Cell 1.2" to h
		Set ComCellData of hoItems h 0 to "5.your extra data"
		Set ComCellValue of hoItems h 1 to " SortValue=5"
		Get ComAddItem of hoItems "Cell 1.3" to h
		Set ComCellData of hoItems h 0 to "2.your extra data"
		Set ComCellValue of hoItems h 1 to " SortValue=2"
	Send Destroy to hoItems
End_Procedure
1399
I have multiple dropdown lists, that are depending on each other, that means that the values in dropdown list no. 2 is based on the users selection in dropdown list no 1. How can I do this
// Occurs when the edit operation starts.
Procedure OnComEditOpen 
	Forward Send OnComEditOpen 
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant v
		Get ComCellValue of hoItems (ComFocusItem(hoItems)) 0 to v
		Variant c
		Get ComCellCaption of hoItems (ComFocusItem(hoItems)) 0 to c
	Send Destroy to hoItems
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 1 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Send ComClearItems of hoEditor
				Send ComAddItem of hoEditor v c Nothing
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "DropDownList" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Variant voEditor1
			Get ComEditor of hoColumn1 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDropDownListType
				Send ComAddItem of hoEditor1 1 "First" Nothing
				Send ComAddItem of hoEditor1 2 "Second" Nothing
				Send ComAddItem of hoEditor1 3 "Third" Nothing
			Send Destroy to hoEditor1
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComDrawGridLines to OLEexAllLines
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "DropDownList-Related" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Variant voEditor2
			Get ComEditor of hoColumn2 to voEditor2
			Handle hoEditor2
			Get Create (RefClass(cComEditor)) to hoEditor2
			Set pvComObject of hoEditor2 to voEditor2
				Set ComEditType of hoEditor2 to OLEDropDownListType
			Send Destroy to hoEditor2
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,1)) 1 to -1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,2)) 1 to -1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,3)) 1 to -1
		Set ComLockedItemCount of hoItems1 OLEexBottom to 1
		Variant h
		Get ComLockedItem of hoItems1 OLEexBottom 0 to h
		Set ComItemDivider of hoItems1 h to 0
		Set ComItemDividerLineAlignment of hoItems1 h to OLEDividerTop
		Set ComCellEditorVisible of hoItems1 h 0 to False
		Set ComCellSingleLine of hoItems1 h 0 to False
		Set ComCellValueFormat of hoItems1 h 0 to OLEexHTML
		Set ComCellValue of hoItems1 h 0 to "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1398
Is it possible background color displayed when the mouse passes over an item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Set ComHotBackColor to (RGB(0,0,128))
	Set ComHotForeColor to (RGB(255,255,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item A" to Nothing
		Get ComAddItem of hoItems "Item B" to Nothing
		Get ComAddItem of hoItems "Item C" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1397
Is it possible to magnify a specified date and apply a different background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComDrawLevelSeparator of hoChart to False
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "11/23/2011"
		Set ComLevelCount of hoChart to 3
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Variant voInsideZoom
			Get ComAdd of hoInsideZooms "11/29/2011" to voInsideZoom
			Handle hoInsideZoom
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
			Set pvComObject of hoInsideZoom to voInsideZoom
				Set ComAllowCustomFormat of hoInsideZoom to True
			Send Destroy to hoInsideZoom
		Send Destroy to hoInsideZooms
		Variant voInsideZooms1
		Get ComInsideZooms of hoChart to voInsideZooms1
		Handle hoInsideZooms1
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1
		Set pvComObject of hoInsideZooms1 to voInsideZooms1
			Variant voInsideZoom1
			Get ComItem of hoInsideZooms1 "11/29/2011" to voInsideZoom1
			Handle hoInsideZoom1
			Get Create (RefClass(cComInsideZoom)) to hoInsideZoom1
			Set pvComObject of hoInsideZoom1 to voInsideZoom1
				Set ComWidth of hoInsideZoom1 to 68
				Variant voInsideZoomFormat
				Get ComCustomFormat of hoInsideZoom1 to voInsideZoomFormat
				Handle hoInsideZoomFormat
				Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
				Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
					Set ComBackColorChart of hoInsideZoomFormat to (RGB(224,224,224))
				Send Destroy to hoInsideZoomFormat
			Send Destroy to hoInsideZoom1
		Send Destroy to hoInsideZooms1
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hA
		Get ComAddItem of hoItems "Task A" to hA
		Send ComAddBar of hoItems hA "Task" "11/24/2011" "11/26/2011" "A" Nothing
		Variant hB
		Get ComAddItem of hoItems "Task B" to hB
		Send ComAddBar of hoItems hB "Task" "11/28/2011" "12/1/2011" "B" Nothing
		Send ComAddLink of hoItems "LinkAB" hA "A" hB "B"
		Set ComLink of hoItems "LinkAB" OLEexLinkStyle to 2
		Set ComLink of hoItems "LinkAB" OLEexLinkWidth to 2
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1396
Could you please tell me how to add multiple bars to the one line

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2002"
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task" to h
		Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
		Set ComItemBar of hoItems h "A" OLEexBarColor to 255
		Send ComAddLink of hoItems "AB" h "A" h "B"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1395
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
	Send Destroy to hoItems
	Send ComEndUpdate
	Set ComTemplate to "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End_Procedure
1394
My development environment does not have any Object,GetOcx,DefaultDispatch,GetControlUnknown,nativeObject, ... property, is there any alternative I can pass the component to PrintExt so I can get printed
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h1
		Get ComAddItem of hoItems "Task 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Variant h2
		Get ComAddItem of hoItems "Task 2" to h2
		Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
		Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
	Send Destroy to hoItems
	Send ComEndUpdate
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Variant v
			Get ComExecuteTemplate "me" to v
		Set ComPrintExt of hoPrint to v
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
1393
Is it possible to display the bar's captions or labels with a different font/size

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComDefaultItemHeight to 24
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Default" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "This is a the control's font"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Smaller" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font ;5>This is a the control's font with a smaller size"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Larger" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font ;15>This is a the control's font with a larger size"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Tahoma 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font Tahoma>This is using a Tahoma font"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Tahoma 2" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "" "<font Tahoma;14>This is using a <b>Tahoma</b> font with a different size"
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1392
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "1" "K1" to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voConditionalFormats1
	Get ComConditionalFormats to voConditionalFormats1
	Handle hoConditionalFormats1
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
	Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
		Variant voConditionalFormat1
		Get ComAdd of hoConditionalFormats1 "1" "K2" to voConditionalFormat1
		Handle hoConditionalFormat1
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
		Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
			Set ComBackColor of hoConditionalFormat1 to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat1 to |CI$2
		Send Destroy to hoConditionalFormat1
	Send Destroy to hoConditionalFormats1
	Set ComMarkSearchColumn to False
	Set ComDrawGridLines to OLEexRowLines
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column 1" to Nothing
		Get ComAdd of hoColumns "Column 2" to Nothing
		Get ComAdd of hoColumns "Column 3" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
		Get ComAddItem of hoItems Nothing to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1391
Is it possible to change the height for all items at once
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems 0 to True
	Send Destroy to hoItems
	Send ComEndUpdate
	Set ComDefaultItemHeight to 12
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemHeight of hoItems1 0 to 12
	Send Destroy to hoItems1
End_Procedure
1390
Is it possible to include the weekday when displaying the date

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Set ComDef of hoColumn OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn to "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Set ComDef of hoColumn1 OLEexCellValueFormat to 1
			Set ComFormatColumn of hoColumn1 to "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 256
		Set ComNonworkingDays of hoChart to 0
		Set ComFirstWeekDay of hoChart to OLEexMonday
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1389
I need my chart to display the end date with on day less. How can I do this (Method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Set ComFormatColumn of hoColumn1 to "shortdate(date(value)-1)"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 196
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "9/22/2006" "9/25/2006" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "9/23/2006" "9/26/2006" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1388
Is it possible to display my custom time-units

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to 0
		Set ComNonworkingDays of hoChart to 0
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComUnit of hoLevel to OLEexDay
			Set ComCount of hoLevel to 16
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComLabel of hoLevel to "<%i%>"
			Set ComFormatLabel of hoLevel to "'Half ' + (1 + (value/16) mod 2)"
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%i%>"
			Set ComFormatLabel of hoLevel1 to "1 + value mod 16"
			Set ComReplaceLabel of hoLevel1 2 to "<font ;10><B>Y"
		Send Destroy to hoLevel1
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComScrollRange of hoChart OLEexStartDate to 0
		Set ComScrollRange of hoChart OLEexEndDate to 31
	Send Destroy to hoChart
End_Procedure
1387
Is it possible to add new records and see them in the control's view using the DataSource

// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComSelectItem of hoItems llItem to True
		Send ComEnsureVisibleItem of hoItems llItem
	Send Destroy to hoItems
	Send ComEdit 0
End_Procedure

// Occurs when user clicks on the cell's button.
Procedure OnComButtonClick HITEM   llItem Integer   llColIndex Variant   llKey
	Forward Send OnComButtonClick llItem llColIndex llKey
	Variant voRecordset
	Get ComDataSource to voRecordset
	Handle hoRecordset
	Get Create (RefClass(cComRecordset)) to hoRecordset
	Set pvComObject of hoRecordset to voRecordset
		Send ComAddNew of hoRecordset Nothing Nothing
	Send Destroy to hoRecordset
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADODB.Recordset" to rs
		Variant voFields
		Get ComFields to voFields
		Handle hoFields
		Get Create (RefClass(cComFields)) to hoFields
		Set pvComObject of hoFields to voFields
			Send ComAppend of hoFields "Task" OLEadBSTR Nothing Nothing Nothing
			Send ComAppend of hoFields "Start" OLEadDate Nothing Nothing Nothing
			Send ComAppend of hoFields "End" OLEadDate Nothing Nothing Nothing
		Send Destroy to hoFields
		Send ComOpen Nothing Nothing Nothing Nothing Nothing
	Set ComDrawGridLines to OLEexRowLines
	Set ComDetectAddNew to True
	Set ComDetectDelete to True
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComLockedItemCount of hoItems1 OLEexTop to 1
		Variant h
		Get ComLockedItem of hoItems1 OLEexTop 0 to h
		Set ComItemDivider of hoItems1 h to 0
		Set ComItemHeight of hoItems1 h to 22
		Set ComCellValue of hoItems1 h 0 to "AddNew"
		Set ComCellHasButton of hoItems1 h 0 to True
		Set ComCellHAlignment of hoItems1 h 0 to OLECenterAlignment
	Send Destroy to hoItems1
End_Procedure
1386
How can I limit the bars to scrolling range only
// Fired when the user creates a new bar.
Procedure OnComCreateBar HITEM   llItem DateTime   llDateStart DateTime   llDateEnd
	Forward Send OnComCreateBar llItem llDateStart llDateEnd
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant v
			Variant voChart
			Get ComChart to voChart
			Handle hoChart
			Get Create (RefClass(cComChart)) to hoChart
			Set pvComObject of hoChart to voChart
				Get ComScrollRange of hoChart OLEexMinDate to v
			Send Destroy to hoChart
		Set ComItemBar of hoItems llItem "newbar" OLEexBarMinStart to v
		Variant v1
			Variant voChart1
			Get ComChart to voChart1
			Handle hoChart1
			Get Create (RefClass(cComChart)) to hoChart1
			Set pvComObject of hoChart1 to voChart1
				Get ComScrollRange of hoChart1 OLEexMaxDate to v1
			Send Destroy to hoChart1
		Set ComItemBar of hoItems llItem "newbar" OLEexBarMaxEnd to v1
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Set ComLevelCount of hoChart2 to 2
		Set ComPaneWidth of hoChart2 False to 56
		Set ComScrollRange of hoChart2 OLEexStartDate to "1/1/2001"
		Set ComScrollRange of hoChart2 OLEexEndDate to "1/15/2001"
		Set ComFirstVisibleDate of hoChart2 to "1/12/2001"
		Set ComAllowCreateBar of hoChart2 to OLEexCreateBarAuto
	Send Destroy to hoChart2
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "Task 1" to Nothing
		Get ComAddItem of hoItems1 "Task 2" to Nothing
		Get ComAddItem of hoItems1 "Task 3" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1385
How do I get the handle of the last added item
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1 to Nothing
		Get ComAddItem of hoItems 2 to Nothing
		Showln (ComItemByIndex(hoItems,(ComItemCount(hoItems))))
	Send Destroy to hoItems
End_Procedure
1384
How can I set the charts date format to any other international Format then the US version. I would need "dd.mmm.yyyy" instead of "mmm.d.'yy"
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<%dd%>.<%mmm%>.<%yyyy%>"
			Set ComUnit of hoLevel to OLEexWeek
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
		Send Destroy to hoLevel
	Send Destroy to hoChart
End_Procedure
1383
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSingleSel to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComAllowLinkBars of hoChart to False
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComFirstVisibleDate of hoChart to "12/24/2000"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComPaneWidth of hoChart False to 128
		Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramSelectedItems)
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramType of hoBar to OLEexHistCumulative
				Set ComHistogramItems of hoBar to 6
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
				Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexKeepOriginalColor
				Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project" to h
		Set ComItemBold of hoItems h to True
		Set ComSelectableItem of hoItems h to False
		Variant h1
		Get ComInsertItem of hoItems h "Item 1" to h1
		Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Get ComInsertItem of hoItems h "Item 2" to h1
		Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/5/2001" Nothing Nothing
		Get ComInsertItem of hoItems h "Item 3" to h1
		Send ComAddBar of hoItems h1 "Task" "1/4/2001" "1/6/2001" Nothing Nothing
		Send ComAddBar of hoItems h1 "Task" "1/1/2001" "1/3/2001" "green" Nothing
		Set ComItemBar of hoItems h1 "green" OLEexBarColor to 65280
		Send ComAddBar of hoItems h1 "Task" "1/8/2001" "1/10/2001" "red" Nothing
		Set ComItemBar of hoItems h1 "red" OLEexBarColor to 255
		Set ComExpandItem of hoItems h to True
		Send ComSelectAll of hoItems
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1382
How can I hide the values shown in the legend when cumulative histogram is displayed

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComPaneWidth of hoChart False to 128
		Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramPattern of hoBar to OLEexPatternSolid
				Set ComHistogramType of hoBar to OLEexHistCumulative
				Set ComHistogramItems of hoBar to 6
				Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0))
				Set ComHistogramBorderColor of hoBar to (RGB(1,0,0))
				Set ComHistogramCumulativeShowLegend of hoBar to 65535
				Set ComHistogramCumulativeOriginalColorBars of hoBar to False
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project 1" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing
		Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1381
Is it possible to define the bar colors, and have the cumulative histogram showing the same colors

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackColor to (ComBackColor(Self))
	Set ComSelForeColor to (ComForeColor(Self))
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComPaneWidth of hoChart False to 128
		Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(128,128,128))
				Set ComHistogramType of hoBar to OLEexHistCumulative
				Set ComHistogramItems of hoBar to 6
				Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0))
				Set ComHistogramBorderColor of hoBar to (RGB(1,0,0))
				Set ComHistogramCumulativeColors of hoBar to 2
				Set ComHistogramCumulativeColor of hoBar 0 to (RGB(0,0,255))
				Set ComHistogramCumulativeColor of hoBar 1 to (RGB(0,0,255))
				Set ComHistogramCumulativeOriginalColorBars of hoBar to False
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
				Set ComHistogramCumulativeShowLegend of hoBar to 65535
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Set ComPartialCheck of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Project 1" to h
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing
		Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing
		Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1380
Is it possible to show the non-working pattern over the bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal
		Set ComNonworkingDaysColor of hoChart to (RGB(0,0,0))
		Set ComPaneWidth of hoChart False to 40
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComHistogramView of hoChart to (OLEexHistogramBackground + OLEexHistogramAllItems)
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Empty" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to (RGB(0,0,0))
				Set ComPattern of hoBar to OLEexPatternFDiagonal
				Set ComShape of hoBar to OLEexShapeSolidFrameless
			Send Destroy to hoBar
			Variant voBar1
			Get ComAdd of hoBars "Task:Empty" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComShortcut of hoBar1 to "Task"
				Set ComHistogramItems of hoBar1 to -5
				Set ComHistogramCriticalValue of hoBar1 to 3
				Set ComHistogramType of hoBar1 to OLEexHistOverload
				Set ComHistogramPattern of hoBar1 to (ComPattern(hoBar1))
				Set ComDef of hoBar1 OLEexBarCaption to "<%=%258%> working days bar"
				Set ComDef of hoBar1 OLEexBarHAlignCaption to 18
				Set ComDef of hoBar1 OLEexBarKeepWorkingCount to True
			Send Destroy to hoBar1
		Send Destroy to hoBars
		Set ComUnitWidthNonworking of hoChart to -12
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComFormatLabel of hoLevel to "weekday(dvalue) in (0,6) ? `` : value"
		Send Destroy to hoLevel
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "6/23/2005" "6/29/2005" "" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "6/24/2005" "6/28/2005" "" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1379
I'm showing values from a ado recordset from sql 2005. When I try to edit a column with integers, it just skips back to the original numbers after pressing enter..., why
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenKeyset OLEadLockReadOnly Nothing
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 4 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1378
Is it possible to reduce the non-working parts of the control

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 40
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComHistogramView of hoChart to OLEexHistogramAllItems
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramType of hoBar to OLEexHistOverAllocation
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComUnitWidthNonworking of hoChart to -8
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComFormatLabel of hoLevel to "weekday(dvalue) in (0,6) ? `` : value"
		Send Destroy to hoLevel
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task A" to h
		Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 4
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
		Get ComAddItem of hoItems "Task B" to h
		Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 2
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1377
I don't want to see the "schedule"/show "workload" in non-working days part of the histogram

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 40
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComHistogramView of hoChart to OLEexHistogramAllItems
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramType of hoBar to OLEexHistOverAllocation
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComShowNonworkingDates of hoChart to False
		Set ComShowNonworkingUnits of hoChart to False
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task A" to h
		Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 4
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
		Get ComAddItem of hoItems "Task B" to h
		Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 2
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1376
The control shows, and handles non-working days PERFECT, but how is it possible to reflect this in the Histogram. I don't want to "schedule"/show "workload" in non-working days...

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 40
		Set ComFirstVisibleDate of hoChart to "6/20/2005"
		Set ComHistogramVisible of hoChart to True
		Set ComHistogramHeight of hoChart to 64
		Set ComHistogramView of hoChart to OLEexHistogramAllItems
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHistogramType of hoBar to OLEexHistOverAllocation
				Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task A" to h
		Send ComAddBar of hoItems h "Task" "6/23/2005" "6/29/2005" "" "4 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 4
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
		Get ComAddItem of hoItems "Task B" to h
		Send ComAddBar of hoItems h "Task" "6/28/2005" "6/30/2005" "" "2 working days bar"
		Set ComItemBar of hoItems h "" OLEexBarCanResize to False
		Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "" OLEexBarEffort to 2
		Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1375
When I do select the button in the overview-zoom I want the scaling to change accordingly. Can I set different scales per selected zoom level

// Occurs once the user selects a new time scale unit in the overview zoom area.
Procedure OnComOverviewZoom 
	Forward Send OnComOverviewZoom 
	Variant v
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Get ComUnitScale of hoChart to v
	Send Destroy to hoChart
	Showln v
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 0
		Set ComLevelCount of hoChart1 to 2
		Set ComOverviewVisible of hoChart1 to OLEexOverviewShowAllVisible
		Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom
		Set ComLabel of hoChart1 OLEexSecond to ""
		Set ComLabel of hoChart1 OLEexYear to ""
	Send Destroy to hoChart1
End_Procedure
1374
How do I display Icons instead of text in the overview zoom area

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
		Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
		Set ComLabel of hoChart OLEexSecond to ""
		Set ComLabel of hoChart OLEexYear to ""
		Showln (ComOverviewZoomCaption(hoChart))
		Set ComOverviewZoomCaption of hoChart to "Year|½Year|¼Year|Month|Third|<img>1</img>|Day|Hour|Min|Sec"
	Send Destroy to hoChart
End_Procedure
1373
How do I get it to only display Min, Hour, Day, Week , Month, ie remove Sec and Year in the overview area
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
		Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
		Set ComLabel of hoChart OLEexSecond to ""
		Set ComLabel of hoChart OLEexYear to ""
	Send Destroy to hoChart
End_Procedure
1372
Is it possible to show quarter hours markers

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComGridLineColor to (RGB(0,0,0))
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAEGg4BdMIQAAYAQGKIYBkAKBQAGaAoDDUNw5QwAAwjSKkEwsACEIrjKCRShyCYZRhGcTAFBMIhkGoSZKlCIRVDCKYJDbKACSFKkNQ7AabZBgOQJVgOKovThKcIybQAASJCKRY7nUIIJA+SoDSRAbqhYIgASnKqLJAkACIJJAaRjHQdJxGKKMQANBghCZseKhWgkKIJUxAdLTWAAMQuaCoZ5icRAca2fJ+XzfeBYDgmAYNQbDcJhHCMMwXDaJZBiGJ4dimI4rR7JIDzDJ8cxbEKTZ5meg5boGRZNTrMQA0fQ9MynK6vahfOi7DpuaZnWrcMb2fYNZwrGq0bxoW58BwmP5/XrkNa4XgcVgmAUBA" to Nothing
	Send Destroy to hoAppearance
	Set ComHeaderHeight to 20
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexHour
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to OLEexHOutside
			Set ComLabel of hoLevel to "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
			Set ComDrawTickLines of hoLevel to OLEexLevelSolidLine
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%hh%>:00"
			Set ComBackColor of hoLevel1 to |CI$3000000
			Set ComDrawTickLines of hoLevel1 to OLEexLevelSolidLine
		Send Destroy to hoLevel1
		Set ComDrawLevelSeparator of hoChart to OLEexLevelSolidLine
		Set ComUnitWidth of hoChart to 64
		Set ComResizeUnitScale of hoChart to OLEexMinute
		Set ComResizeUnitCount of hoChart to 15
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1371
How can I ensure or always show the labels on the chart part, when scrolling the chart to left or right
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComUnitWidth of hoChart to 48
		Set ComUnitScale of hoChart to OLEexHour
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
			Set ComLabel of hoLevel to "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%hh%>:00"
		Send Destroy to hoLevel1
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1370
I associate the Start and End columns with bars, but some of them are not shown. What am I doing wrong
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "12/25/2000"
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
			Set ComDef of hoColumn OLEexCellValueToItemBarKey to "K1"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
			Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "K1"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/1/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/3/2001" "1/7/2001" "????" "????"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1369
How can I implement OLE Drag and Drop operation
// Occurs when the OLEDrag method is called.
Procedure OnComOLEStartDrag Variant   llData Integer   llAllowedEffects
	Forward Send OnComOLEStartDrag llData llAllowedEffects
	// Data.SetData("your data to drag")
	Move 2 to AllowedEffects
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Item 1" to Nothing
		Get ComAddItem of hoItems "Item 2" to Nothing
		Get ComAddItem of hoItems "Item 3" to Nothing
		Get ComAddItem of hoItems "Item 4" to Nothing
		Get ComAddItem of hoItems "Item 5" to Nothing
	Send Destroy to hoItems
	Set ComOLEDropMode to OLEexOLEDropManual
	Send ComEndUpdate
End_Procedure
1368
I can not associate the bar's start and end properties with my start/end columns, only if the bar's key is empty or null. What can I do

// Occurs when user clicks on the cell's button.
Procedure OnComButtonClick HITEM   llItem Integer   llColIndex Variant   llKey
	Forward Send OnComButtonClick llItem llColIndex llKey
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Tasks" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarKey to "B"
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComItem of hoColumns "Start" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "B"
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComItem of hoColumns "End" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarKey to "B"
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems llItem 1 to "B"
		Set ComItemBar of hoItems 0 "B" OLEexBarColor to 0
		Set ComItemBar of hoItems 0 "A" OLEexBarColor to 16775408
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn3
		Get ComAdd of hoColumns1 "Tasks" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComWidth of hoColumn3 to 32
			Set ComDef of hoColumn3 OLEexCellValueToItemBarProperty to 3
			Set ComDef of hoColumn3 OLEexCellValueToItemBarKey to "A"
		Send Destroy to hoColumn3
		Variant voColumn4
		Get ComAdd of hoColumns1 "Start" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComDef of hoColumn4 OLEexCellValueToItemBarProperty to 1
			Set ComDef of hoColumn4 OLEexCellValueToItemBarKey to "A"
			Variant voEditor
			Get ComEditor of hoColumn4 to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEDateType
			Send Destroy to hoEditor
		Send Destroy to hoColumn4
		Variant voColumn5
		Get ComAdd of hoColumns1 "End" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComDef of hoColumn5 OLEexCellValueToItemBarProperty to 2
			Set ComDef of hoColumn5 OLEexCellValueToItemBarKey to "A"
			Variant voEditor1
			Get ComEditor of hoColumn5 to voEditor1
			Handle hoEditor1
			Get Create (RefClass(cComEditor)) to hoEditor1
			Set pvComObject of hoEditor1 to voEditor1
				Set ComEditType of hoEditor1 to OLEDateType
			Send Destroy to hoEditor1
		Send Destroy to hoColumn5
	Send Destroy to hoColumns1
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to True
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 196
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternBDiagonal
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
				Set ComOverlaid of hoBar OLEexOverlaidBarsTransparent to 80
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComLockedItemCount of hoItems1 OLEexTop to 1
		Variant h
		Get ComLockedItem of hoItems1 OLEexTop 0 to h
		Set ComCellValue of hoItems1 h 0 to "Select"
		Set ComCellHasButton of hoItems1 h 0 to True
		Set ComCellMerge of hoItems1 h 1 to 2
		Set ComCellValue of hoItems1 h 1 to "A"
		Variant voEditor2
		Get ComCellEditor of hoItems1 h 1 to voEditor2
		Handle hoEditor2
		Get Create (RefClass(cComEditor)) to hoEditor2
		Set pvComObject of hoEditor2 to voEditor2
			Set ComEditType of hoEditor2 to OLEEditType
		Send Destroy to hoEditor2
	Send Destroy to hoItems1
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Set ComAllowCellValueToItemBar of hoItems2 to True
		Get ComAddItem of hoItems2 "Task 1" to h
		Send ComAddBar of hoItems2 h "Task" "9/21/2006" "9/24/2006" "A" "A"
		Send ComAddBar of hoItems2 h "Task" "9/25/2006" "9/28/2006" "B" "B"
		Set ComItemBar of hoItems2 h "B" OLEexBarColor to 16775408
		Get ComAddItem of hoItems2 "Task 2" to h
		Send ComAddBar of hoItems2 h "Task" "9/22/2006" "9/25/2006" "A" "A"
		Send ComAddBar of hoItems2 h "Task" "9/26/2006" "9/29/2006" "B" "B"
		Set ComItemBar of hoItems2 h "B" OLEexBarColor to 16775408
	Send Destroy to hoItems2
	Send ComEndUpdate
End_Procedure
1367
How can I determine the order of the events
// Occurs when the user links two bars using the mouse.
Procedure OnComAddLink String   llLinkKey
	Forward Send OnComAddLink llLinkKey
	Showln "AddLink" llLinkKey
End_Procedure

// Fired after an item is expanded (collapsed).
Procedure OnComAfterExpandItem HITEM   llItem
	Forward Send OnComAfterExpandItem llItem
	Showln "AfterExpandItem" llItem
End_Procedure

// Notifies at runtime when a link between two bars is possible.
Procedure OnComAllowLink HITEM   llStartItem Variant   llStartBarKey HITEM   llEndItem Variant   llEndBarKey Variant   llLinkKey Boolean   llCancel
	Forward Send OnComAllowLink llStartItem llStartBarKey llEndItem llEndBarKey llLinkKey llCancel
	Showln "AllowLink" llStartItem llStartBarKey llEndItem llEndBarKey llLinkKey
End_Procedure

// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String   llAnchorID String   llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
	Showln "AnchorClick" llAnchorID llOptions
End_Procedure

// Occurs just before moving a bar from current item to another item.
Procedure OnComBarParentChange HITEM   llItem Variant   llKey HITEM   llNewItem Boolean   llCancel
	Forward Send OnComBarParentChange llItem llKey llNewItem llCancel
	Showln "BarParentChange" llItem llKey llNewItem
End_Procedure

// Occurs when a bar is moved or resized.
Procedure OnComBarResize HITEM   llItem Variant   llKey
	Forward Send OnComBarResize llItem llKey
	Showln "BarResize" llItem llKey
End_Procedure

// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM   llItem Variant   llKey
	Forward Send OnComBarResizing llItem llKey
	Showln "BarResizing" llItem llKey
End_Procedure

// Fired before an item is about to be expanded (collapsed).
Procedure OnComBeforeExpandItem HITEM   llItem Variant   llCancel
	Forward Send OnComBeforeExpandItem llItem llCancel
	Showln "BeforeExpandItem" llItem
End_Procedure

// Occurs when user clicks on the cell's button.
Procedure OnComButtonClick HITEM   llItem Integer   llColIndex Variant   llKey
	Forward Send OnComButtonClick llItem llColIndex llKey
	Showln "ButtonClick" llItem llColIndex llKey
End_Procedure

// Fired after the user clicks on the image's cell area.
Procedure OnComCellImageClick HITEM   llItem Integer   llColIndex
	Forward Send OnComCellImageClick llItem llColIndex
	Showln "CellImageClick" llItem llColIndex
End_Procedure

// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM   llItem Integer   llColIndex
	Forward Send OnComCellStateChanged llItem llColIndex
	Showln "CellStateChanged" llItem llColIndex
End_Procedure

// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM   llItem Integer   llColIndex Variant   llNewValue
	Forward Send OnComChange llItem llColIndex llNewValue
	Showln "Change" llItem llColIndex llNewValue
End_Procedure

// Occurs after the chart has been changed.
Procedure OnComChartEndChanging OLEBarOperationEnum   llOperation
	Forward Send OnComChartEndChanging llOperation
	Showln "ChartEndChanging" llOperation
End_Procedure

// Occurs when the user selects objects in the chart area.
Procedure OnComChartSelectionChanged 
	Forward Send OnComChartSelectionChanged 
	Showln "ChartSelectionChanged"
End_Procedure

// Occurs when the chart is about to be changed.
Procedure OnComChartStartChanging OLEBarOperationEnum   llOperation
	Forward Send OnComChartStartChanging llOperation
	Showln "ChartStartChanging" llOperation
End_Procedure

// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick 
	Forward Send OnComClick 
	Showln "Click"
End_Procedure

// Fired after the user clicks on column's header.
Procedure OnComColumnClick Variant   llColumn
	Forward Send OnComColumnClick llColumn
	Showln "ColumnClick"
End_Procedure

// Fired when the user creates a new bar.
Procedure OnComCreateBar HITEM   llItem DateTime   llDateStart DateTime   llDateEnd
	Forward Send OnComCreateBar llItem llDateStart llDateEnd
	Showln "CreateBar" llItem llDateStart llDateEnd
End_Procedure

// Occurs when the first visible date is changed.
Procedure OnComDateChange 
	Forward Send OnComDateChange 
	Showln "DateChange"
End_Procedure

// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComDblClick llShift llX llY
	Showln "DblClick" llShift llX llY
	Send ComEdit Nothing
End_Procedure

// Occurs just before editing the focused cell.
Procedure OnComEdit HITEM   llItem Integer   llColIndex Boolean   llCancel
	Forward Send OnComEdit llItem llColIndex llCancel
	Showln "Edit" llItem llColIndex
End_Procedure

// Occurs when the edit operation ends.
Procedure OnComEditClose 
	Forward Send OnComEditClose 
	Showln "EditClose"
End_Procedure

// Occurs when the edit operation starts.
Procedure OnComEditOpen 
	Forward Send OnComEditOpen 
	Showln "EditOpen"
End_Procedure

// Occurs when the filter was changed.
Procedure OnComFilterChange 
	Forward Send OnComFilterChange 
	Showln "FilterChange"
End_Procedure

// Notifies your application that the filter is about to change.
Procedure OnComFilterChanging 
	Forward Send OnComFilterChanging 
	Showln "FilterChanging"
End_Procedure

// Occurs when a cell gets the focus.
Procedure OnComFocusChanged 
	Forward Send OnComFocusChanged 
	Showln "FocusChanged"
End_Procedure

// Notifies your application that a date is about to be magnified.
Procedure OnComInsideZoom DateTime   llDateTime
	Forward Send OnComInsideZoom llDateTime
	Showln "InsideZoom" llDateTime
End_Procedure

// Occurs when the user presses a key while an object has the focus.
Procedure OnComKeyDown Short   llKeyCode Short   llShift
	Forward Send OnComKeyDown llKeyCode llShift
	Showln "KeyDown" llKeyCode llShift
End_Procedure

// Occurs when the user presses and releases an ANSI key.
Procedure OnComKeyPress Short   llKeyAscii
	Forward Send OnComKeyPress llKeyAscii
	Showln "KeyPress" llKeyAscii
End_Procedure

// Occurs when the user releases a key while an object has the focus.
Procedure OnComKeyUp Short   llKeyCode Short   llShift
	Forward Send OnComKeyUp llKeyCode llShift
	Showln "KeyUp" llKeyCode llShift
End_Procedure

// Occurs when column's position or column's size is changed.
Procedure OnComLayoutChanged 
	Forward Send OnComLayoutChanged 
	Showln "LayoutChanged"
End_Procedure

// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseDown llButton llShift llX llY
	Showln "MouseDown" llButton llShift llX llY
End_Procedure

// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseMove llButton llShift llX llY
End_Procedure

// Occurs when the user releases a mouse button.
Procedure OnComMouseUp Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseUp llButton llShift llX llY
	Showln "MouseUp" llButton llShift llX llY
End_Procedure

// Occurs when the scroll position has been changed.
Procedure OnComOffsetChanged Boolean   llHorizontal Integer   llNewVal
	Forward Send OnComOffsetChanged llHorizontal llNewVal
	Showln "OffsetChanged" llHorizontal llNewVal
End_Procedure

// Occurs when the right range of the scroll has been changed.
Procedure OnComOversizeChanged Boolean   llHorizontal Integer   llNewVal
	Forward Send OnComOversizeChanged llHorizontal llNewVal
	Showln "OversizeChanged" llHorizontal llNewVal
End_Procedure

// Occurs once the user selects a new time scale unit in the overview zoom area.
Procedure OnComOverviewZoom 
	Forward Send OnComOverviewZoom 
	Showln "OverviewZoom"
End_Procedure

// Fired when right mouse button is clicked
Procedure OnComRClick 
	Forward Send OnComRClick 
	Showln "RClick"
End_Procedure

// Occurs when the user clicks a button in the scrollbar.
Procedure OnComScrollButtonClick OLEScrollBarEnum   llScrollBar OLEScrollPartEnum   llScrollPart
	Forward Send OnComScrollButtonClick llScrollBar llScrollPart
	Showln "ScrollButtonClick" llScrollBar llScrollPart
End_Procedure

// Fired after a new item has been selected.
Procedure OnComSelectionChanged 
	Forward Send OnComSelectionChanged 
	Showln "SelectionChanged"
End_Procedure

// Fired when the control sorts a column.
Procedure OnComSort 
	Forward Send OnComSort 
	Showln "Sort"
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComDrawGridLines to OLEexAllLines
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComGridLineStyle to OLEexGridLinesHDash
	Set ComAutoEdit to False
	Set ComExpandOnDblClick to False
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowInsideZoom of hoChart to True
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
		Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComGridLineStyle of hoChart to (OLEexGridLinesVSolid + OLEexGridLinesHDash)
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComDrawGridLines of hoLevel to True
		Send Destroy to hoLevel
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternSolid
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComUnitScale of hoChart to OLEexDay
		Set ComLabel of hoChart OLEexSecond to ""
		Set ComLabel of hoChart OLEexMinute to ""
		Set ComLabel of hoChart OLEexHour to ""
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Button" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComAllowSizing of hoColumn1 to False
			Set ComWidth of hoColumn1 to 18
			Set ComDef of hoColumn1 OLEexCellHasButton to True
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "parent" to h
		Set ComCellImage of hoItems h 0 to 1
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" "<a>A</a>"
		Set ComItemBar of hoItems h "A" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "A" OLEexBarCanMoveToAnother to True
		Set ComItemBar of hoItems h "A" OLEexBarToolTip to "This is a bit of text that should be shown when cursor hovers the bar"
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" "<a>B</a>"
		Set ComItemBar of hoItems h "B" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "B" OLEexBarCanMoveToAnother to True
		Get ComInsertItem of hoItems h "" "child" to Nothing
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1366
How can I change the chart's horizontal grid lines
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDrawGridLines to OLEexAllLines
	Set ComGridLineStyle to OLEexGridLinesHDash
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 48
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComDrawGridLines of hoChart to OLEexAllLines
		Set ComGridLineStyle of hoChart to (OLEexGridLinesVSolid + OLEexGridLinesHDash)
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComDrawGridLines of hoLevel to True
		Send Destroy to hoLevel
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternSolid
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1365
Is there any way to determine whether the ADO operations fails
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

// Fired when an internal error occurs.
Procedure OnComError Integer   llError String   llDescription
	Forward Send OnComError llError llDescription
	Showln llError llDescription
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenKeyset OLEadLockReadOnly Nothing
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 4 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1364
Is it possible to select a column instead sorting it
// Fired after the user clicks on column's header.
Procedure OnComColumnClick Variant   llColumn
	Forward Send OnComColumnClick llColumn
	// Column.Selected = True
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSelected of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 1 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComSelected of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComSelectAll of hoItems
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComShowFocusRect to False
	Set ComSingleSel to False
	Set ComFullRowSelect to OLEexRectSel
	Set ComSortOnClick to OLEexNoSort
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Get ComAdd of hoColumns2 "Column1" to Nothing
		Get ComAdd of hoColumns2 "Column2" to Nothing
	Send Destroy to hoColumns2
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"One")) 1 to "Three"
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Two")) 1 to "Four"
		Send ComSelectAll of hoItems1
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1363
I am using the exRectSel, and clicking the first column, has no effect, instead if I click other it works as it should
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSearchColumnIndex to -1
	Set ComFullRowSelect to OLEexRectSel
	Set ComShowFocusRect to False
	Set ComMarkSearchColumn to False
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Column1" to Nothing
		Get ComAdd of hoColumns "Column2" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,1)) 1 to 2
		Set ComCellValue of hoItems (ComAddItem(hoItems,3)) 1 to 4
		Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 6
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1362
Is it possible to display empty strings for 0 values
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "dbl(value) ? currency(dbl(value)) : ``"
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
				Set ComNumeric of hoEditor to OLEexFloat
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.23 to Nothing
		Get ComAddItem of hoItems 2.34 to Nothing
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 10000.99 to Nothing
	Send Destroy to hoItems
End_Procedure
1361
Is it possible to display empty strings for 0 values
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Number" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Currency" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComComputedField of hoColumn to "%0 ? currency(%0) : ``"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems 1.23 to Nothing
		Get ComAddItem of hoItems 2.34 to Nothing
		Get ComAddItem of hoItems 0 to Nothing
		Get ComAddItem of hoItems 10000.99 to Nothing
	Send Destroy to hoItems
End_Procedure
1360
How can I hide a date from the chart view, when I display hours instead days

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 32
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "6/8/2011"
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Set ComAllowInsideZoom of hoChart to True
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComLabel of hoLevel to "<b><%d%>-<%mmm%>-<%yyyy%>"
			Set ComUnit of hoLevel to OLEexDay
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%h%>"
			Set ComCount of hoLevel1 to 8
			Set ComUnit of hoLevel1 to OLEexHour
			Set ComFormatLabel of hoLevel1 to "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )"
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 64
		Set ComNonworkingDays of hoChart to 0
		Set ComAllowInsideZoom of hoChart to True
		Variant voInsideZoomFormat
		Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
		Handle hoInsideZoomFormat
		Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
		Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
			Set ComInsideUnit of hoInsideZoomFormat to OLEexMinute
		Send Destroy to hoInsideZoomFormat
		Set ComAllowResizeInsideZoom of hoChart to False
		Set ComInsideZoomOnDblClick of hoChart to False
		Variant voInsideZooms
		Get ComInsideZooms of hoChart to voInsideZooms
		Handle hoInsideZooms
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
		Set pvComObject of hoInsideZooms to voInsideZooms
			Set ComSplitBaseLevel of hoInsideZooms to False
			Set ComDefaultWidth of hoInsideZooms to 0
		Send Destroy to hoInsideZooms
		Variant voInsideZooms1
		Get ComInsideZooms of hoChart to voInsideZooms1
		Handle hoInsideZooms1
		Get Create (RefClass(cComInsideZooms)) to hoInsideZooms1
		Set pvComObject of hoInsideZooms1 to voInsideZooms1
			Get ComAdd of hoInsideZooms1 "6/9/2011 8:00:00 AM" to Nothing
			Get ComAdd of hoInsideZooms1 "6/9/2011 4:00:00 PM" to Nothing
		Send Destroy to hoInsideZooms1
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1359
I’ve created a skin (EBN) for the bars of my chart, with rounded top corners. The problem, is that these rounded corners are applied also at beginning and the end of the non working units. Is it possible to show a different picture/skin for the non-working part of the bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
	Send Destroy to hoChart
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Variant voBars
		Get ComBars of hoChart1 to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComColor of hoBar to |CI$1000000
			Send Destroy to hoBar
			Variant voBar1
			Get ComItem of hoBars "Split" to voBar1
			Handle hoBar1
			Get Create (RefClass(cComBar)) to hoBar1
			Set pvComObject of hoBar1 to voBar1
				Set ComColor of hoBar1 to |CI$2000000
			Send Destroy to hoBar1
			Variant voBar2
			Get ComAdd of hoBars "Task:Split" to voBar2
			Handle hoBar2
			Get Create (RefClass(cComBar)) to hoBar2
			Set pvComObject of hoBar2 to voBar2
				Set ComShortcut of hoBar2 to "TS"
			Send Destroy to hoBar2
		Send Destroy to hoBars
	Send Destroy to hoChart1
	Variant voChart2
	Get ComChart to voChart2
	Handle hoChart2
	Get Create (RefClass(cComChart)) to hoChart2
	Set pvComObject of hoChart2 to voChart2
		Set ComFirstVisibleDate of hoChart2 to "1/1/2001"
	Send Destroy to hoChart2
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "TS" "1/2/2001" "1/16/2001" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1358
How do I display the names of the tasks on bars but not in the middle of the bar (left or right)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "12/27/2000"
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComPattern of hoBar to OLEexPatternDot
				Set ComHeight of hoBar to 15
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Task 1" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K1" "<b>to do</b> "
		Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 2
		Get ComAddItem of hoItems "Task 2" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K2" "<b>to do</b>"
		Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 18
		Get ComAddItem of hoItems "Task 3" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K1" " <b>to do</b>"
		Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 0
		Get ComAddItem of hoItems "Task 4" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/8/2001" "K2" "<b>to do</b>"
		Set ComItemBar of hoItems h "K2" OLEexBarHAlignCaption to 16
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1357
How can I get the list of items as they are displayed
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Names" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Mantel" to Nothing
		Get ComAddItem of hoItems "Mechanik" to Nothing
		Get ComAddItem of hoItems "Motor" to Nothing
		Get ComAddItem of hoItems "Murks" to Nothing
		Get ComAddItem of hoItems "Märchen" to Nothing
		Get ComAddItem of hoItems "Möhren" to Nothing
		Get ComAddItem of hoItems "Mühle" to Nothing
	Send Destroy to hoItems
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Send ComEndUpdate
	Showln (ComGetItems(Self,1))
End_Procedure
1356
How can I disable the left and right arrows to move to next cell while editing
Procedure OnCreate
	Forward Send OnCreate
	Variant v
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Edit" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Get ComEditor of hoColumn to v
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant var_Editor
	Move v to var_Editor
		Set ComEditType to OLEEditType
		Set ComOption OLEexLeftArrow to 0
		Set ComOption OLEexRightArrow to 0
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "Cell 1" to Nothing
		Get ComAddItem of hoItems "Cell 2" to Nothing
		Get ComAddItem of hoItems "Cell 3" to Nothing
	Send Destroy to hoItems
End_Procedure
1355
Is it possible to define a bar that is treated as a non-working hour so user can move it at runtime

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 48
		Set ComAllowNonworkingBars of hoChart to True
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComUnitScale of hoChart to OLEexHour
		Variant voLevel
		Get ComLevel of hoChart 1 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComLabel of hoLevel to "<font ;4><%hh%>"
		Send Destroy to hoLevel
		Set ComUnitWidth of hoChart to 12
		Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Machine" to h
		Set ComItemNonworkingUnits of hoItems h False to "0"
		Send ComAddBar of hoItems h "" "1/1/2001 9:00:00 AM" "1/1/2001 11:00:00 AM" "A" "pause"
		Set ComItemBar of hoItems h "A" OLEexBarTreatAsNonworking to True
		Send ComAddBar of hoItems h "Task" "1/1/2001 12:00:00 PM" "1/1/2001 5:00:00 PM" "Z" Nothing
		Set ComItemBar of hoItems h "Z" OLEexBarKeepWorkingCount to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1354
Is it possible to customize the chart's header so I can display shift and other values

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 32
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "6/8/2011"
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>"
			Set ComUnit of hoLevel to OLEexDay
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%h%>"
			Set ComCount of hoLevel1 to 8
			Set ComUnit of hoLevel1 to OLEexHour
			Set ComFormatLabel of hoLevel1 to "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : 'Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; 16 : 'Shift <b>3</b><br>26/24' ) ) )"
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 64
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1353
How can I change both start and end dates of the bar
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "6/19/2005"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Test" to h
		Send ComAddBar of hoItems h "Task" "6/22/2005" "6/27/2005" "t1" Nothing
		Send ComAddBar of hoItems h (ComItemBar(hoItems,h,"t1",OLEexBarName)) "6/21/2005" "6/22/2005" "t1" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1352
Is it possible to add new rows, as I type like in Excel
// Occurs when the edit operation ends.
Procedure OnComEditClose 
	Forward Send OnComEditClose 
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "" to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAutoEdit to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Default" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLEEditType
			Send Destroy to hoEditor
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Set ComFullRowSelect to OLEexColumnSel
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 "" to Nothing
	Send Destroy to hoItems1
	Set ComDrawGridLines to OLEexAllLines
	Set ComScrollBars to OLEexDisableBoth
	Send ComEndUpdate
End_Procedure
1351
How do I load bars from my table/database
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "8/3/1994"
		Set ComPaneWidth of hoChart False to 256
		Set ComLevelCount of hoChart to 2
		Set ComUnitScale of hoChart to OLEexDay
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
	Send Destroy to hoChart
	Set ComColumnAutoResize to False
	Set ComContinueColumnScroll to False
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComAllowCellValueToItemBar of hoItems1 to True
	Send Destroy to hoItems1
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 2 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 4 to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1350
Is posible to reduce the size of the picture to be shown in the bar's caption

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Set ComScrollBySingleLine to True
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 78
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Default-Size" to h
		Set ComItemHeight of hoItems h to 48
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "<img>pic1</img>"
		Get ComAddItem of hoItems "Custom-Size" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K2" "<img>pic1:18</img>"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1349
Is posible to reduce the size of the picture to be shown in the column's caption
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHeaderHeight to 48
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "DefaultSize" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHTMLCaption of hoColumn to "Default-Size <img>pic1</img> Picture"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "CustomSize" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComHTMLCaption of hoColumn1 to "Custom-Size <img>pic1:16</img> Picture"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1348
Is it possible to display the selected dates using a solid color instead vertical lines

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 128
		Set ComFirstVisibleDate of hoChart to "1/1/2008"
		Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
		Set ComLevelCount of hoChart to 2
		Set ComMarkSelectDateColor of hoChart to |CI$7fcbc0ff
		Set ComSelectLevel of hoChart to 1
		Set ComSelectDate of hoChart "1/8/2008" to True
		Set ComSelectDate of hoChart "1/9/2008" to True
		Set ComSelectDate of hoChart "1/10/2008" to True
	Send Destroy to hoChart
	Set ComDefaultItemHeight to 72
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/7/2008" "1/12/2008" "" "<b>MarkSelectDateColor(32)</b><br>should be <font ;11><i>0x7F000000 + RGB(rr,gg,bb)</i></font><br> or in the format as: <font ;11><i>0x7FBBGGRR</i></font>, <br>where BB is the hexa value for Blue, <br>GG for grean and so on."
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1347
How can I show the cells using a different background color based on the condition I have
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComSelBackMode to OLEexTransparent
	Set ComShowFocusRect to False
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "dbl(%1)-dbl(%0) = 1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
		Variant voConditionalFormat1
		Get ComAdd of hoConditionalFormats "dbl(%0)-dbl(%1) = 3" Nothing to voConditionalFormat1
		Handle hoConditionalFormat1
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
		Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
			Set ComBackColor of hoConditionalFormat1 to (RGB(255,255,0))
			Set ComApplyTo of hoConditionalFormat1 to OLEexFormatToColumns
		Send Destroy to hoConditionalFormat1
		Variant voConditionalFormat2
		Get ComAdd of hoConditionalFormats "dbl(%1)-dbl(%0) = 4" Nothing to voConditionalFormat2
		Handle hoConditionalFormat2
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
		Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
			Set ComForeColor of hoConditionalFormat2 to (RGB(128,128,128))
			Set ComBold of hoConditionalFormat2 to True
			Set ComApplyTo of hoConditionalFormat2 to OLEexFormatToItems
		Send Destroy to hoConditionalFormat2
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "C1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 8
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "C2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComWidth of hoColumn1 to 8
		Send Destroy to hoColumn1
		Get ComAdd of hoColumns "" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 3
		Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 2
		Set ComCellValue of hoItems (ComAddItem(hoItems,5)) 1 to 6
		Set ComCellValue of hoItems (ComAddItem(hoItems,2)) 1 to 6
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1346
How can I specify the frame's color for all Task bars

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComDef of hoBar OLEexBarFrameColor to 255
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/5/2001" "K3" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1345
Is it possible to change the bar's frame color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 25
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComDrawGridLines of hoChart to OLEexHLines
		Set ComNonworkingDays of hoChart to 0
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComHeight of hoBar to 15
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Default" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Get ComAddItem of hoItems "Red-Frame" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255
		Get ComAddItem of hoItems "Green-ThickFrame" to h
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPattern to 4099
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 32768
		Get ComAddItem of hoItems "Red-ThickFrame/Shadow" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPattern to 12291
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1344
I need to customize the labels on the chart. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderHeight to 32
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "7/1/2011"
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>"
			Set ComUnit of hoLevel to OLEexDay
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%h%>"
			Set ComCount of hoLevel1 to 8
			Set ComUnit of hoLevel1 to OLEexHour
			Set ComFormatLabel of hoLevel1 to "int(value) case ( 0 : 'Shift <b>1</b><br><font ;11>' + yearday(dvalue) + '</font>/365 ' ; 8 : 'Shift <b>2</b><br>' + weekday(dvalue) + '/20'; 16 : 'Shift <b>3</b><br>' + (weekday(dvalue) case ( 0 : '12/22'; 1 : '12/23'; 2 : '2/3'; 3 : '12/13'; 4 : '22/34' ; 5 : '102-<fgcolor=FF0000><b>31</b></bgcolor>'; 6 : '1/1' ) )  ) "
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 64
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1343
Is it possible to show a frame around the bar

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 25
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BOUMQAAYAQGKIYBkAKBQAGaAoDDYMgzQwAAxDELMEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIyAJIcaw0GSEZwgOQZBiOEYnDANkIYJDSIYHTZIUzTJAdGSVJKNKAoKCaEgORo5SpNUghBDYKQTJyeagkaaRVCWLplRCNIwWNJdVwjEaQaaiarKNqKNpSViAEqSdKEZRLOyRZyiKQMEreY4EUDQcxUPYMNYaAC6AAparpbwCFpSYpRND3TaEE4jSLKAA0HD6QqebIDDJaFq6PbVXSTOLPNhgPQcWxeVJBXjLExUALGSYLC6nKayHZcHACKK5VbVW6ZZDdNy/BLQeD4QANG4riuNJriMV4dgWVgHh+ZpgCeEIQEQJIgGkMYdA6JwjC0VAAmaJgQgmPp4lCWgSCiaB+DKIYIjqQpllMf6JgYAoAmASAWAaAZggQDJ/gKYJIDYDoDmECBGAOBBhEgVgUgSYRoGYGYGCGKB2BCBwhmiBgLggIgoHoJIJGGKIeCiBYiiiLgXgCIpohoMIMGKGJODSCwghiZg6g6Y5InYPh/lAECAg" to Nothing
		Get ComAdd of hoAppearance 2 "CP:1 2 2 -2 -2" to Nothing
		Get ComAdd of hoAppearance 3 "CP:1 -5 -5 5 5" to Nothing
		Get ComAdd of hoAppearance 4 "XP:Window 19 1" to Nothing
		Get ComAdd of hoAppearance 5 "XP:TreeView 2 1" to Nothing
	Send Destroy to hoAppearance
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 128
		Set ComDrawGridLines of hoChart to OLEexHLines
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Default" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
		Get ComAddItem of hoItems "Red-Frame" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255
		Get ComAddItem of hoItems "Green-ThickFrame" to h
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPattern to 4099
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 32768
		Get ComAddItem of hoItems "Red-ThickFrame/Shadow" to h
		Send ComAddBar of hoItems h "Task" "1/4/2001" "1/7/2001" "K1" Nothing
		Set ComItemBar of hoItems h "K1" OLEexBarPattern to 12291
		Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 255
		Get ComAddItem of hoItems "EBN-Frame-Border" to h
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing
		Set ComItemBar of hoItems h "K2" OLEexBarFrameColor to 16777216
		Get ComAddItem of hoItems "EBN-Inside Frame" to h
		Send ComAddBar of hoItems h "Task" "1/9/2001" "1/13/2001" "K3" Nothing
		Set ComItemBar of hoItems h "K3" OLEexBarFrameColor to 33554432
		Get ComAddItem of hoItems "EBN-Outside Frame" to h
		Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K4" Nothing
		Set ComItemBar of hoItems h "K4" OLEexBarFrameColor to 50331648
		Get ComAddItem of hoItems "EBN-XP Close Button" to h
		Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K5" Nothing
		Set ComItemBar of hoItems h "K5" OLEexBarFrameColor to 67108864
		Get ComAddItem of hoItems "EBN-XP TreeView Glyph" to h
		Send ComAddBar of hoItems h "Task" "1/15/2001" "1/18/2001" "K6" Nothing
		Set ComItemBar of hoItems h "K6" OLEexBarFrameColor to 83886080
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1342
Currently your control, provides customization up to Year,Month,Day,Hours,etc. I would like to add Shifts in a day. Shortly, I need to customize the chart's header. Is it possible

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "7/1/2011"
		Set ComAdjustLevelsToBase of hoChart to True
		Set ComPaneWidth of hoChart False to 0
		Set ComLevelCount of hoChart to 2
		Variant voLevel
		Get ComLevel of hoChart 0 to voLevel
		Handle hoLevel
		Get Create (RefClass(cComLevel)) to hoLevel
		Set pvComObject of hoLevel to voLevel
			Set ComAlignment of hoLevel to OLECenterAlignment
			Set ComLabel of hoLevel to "<b><%d%> - <%mmmm%> - <%yyyy%>"
			Set ComUnit of hoLevel to OLEexDay
		Send Destroy to hoLevel
		Variant voLevel1
		Get ComLevel of hoChart 1 to voLevel1
		Handle hoLevel1
		Get Create (RefClass(cComLevel)) to hoLevel1
		Set pvComObject of hoLevel1 to voLevel1
			Set ComLabel of hoLevel1 to "<%h%>"
			Set ComCount of hoLevel1 to 8
			Set ComUnit of hoLevel1 to OLEexHour
			Set ComReplaceLabel of hoLevel1 0 to " Shift 1"
			Set ComReplaceLabel of hoLevel1 8 to " Shift 2"
			Set ComReplaceLabel of hoLevel1 16 to " Shift 3"
		Send Destroy to hoLevel1
		Set ComUnitWidth of hoChart to 48
		Set ComNonworkingDays of hoChart to 0
	Send Destroy to hoChart
	Send ComEndUpdate
End_Procedure
1341
The exbartootip shows dates after you moved or resized the bar. My question is during the move or resizing of bar(you click on bar and drag it,during that time) , can we display the new dates simultaneously so we will know where we want to move or resize the bar to

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComDrawDateTicker of hoChart to True
		Set ComDateTickerLabel of hoChart to "<%mmm%> <%d%><br><b><%yyyy%>"
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Tasks A" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing
		Set ComSelectableItem of hoItems (ComAddItem(hoItems,Nothing)) to False
		Get ComAddItem of hoItems "Tasks B" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/11/2001" "K2" Nothing
	Send Destroy to hoItems
End_Procedure
1340
Is it possible to assign a tooltip automatically to all bars, so it can display the start and end, without specifying the IexBarToolTip for each bar
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 64
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComDef of hoBar OLEexBarToolTip to "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Tasks A" to h
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "1/5/2001" "1/9/2001" "K2" Nothing
		Get ComAddItem of hoItems "Tasks B" to h
		Send ComAddBar of hoItems h "Task" "1/3/2001" "1/5/2001" "K1" Nothing
		Send ComAddBar of hoItems h "Task" "1/8/2001" "1/11/2001" "K2" Nothing
	Send Destroy to hoItems
End_Procedure
1339
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voConditionalFormats
	Get ComConditionalFormats to voConditionalFormats
	Handle hoConditionalFormats
	Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
	Set pvComObject of hoConditionalFormats to voConditionalFormats
		Variant voConditionalFormat
		Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
		Handle hoConditionalFormat
		Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
		Set pvComObject of hoConditionalFormat to voConditionalFormat
			Set ComBold of hoConditionalFormat to True
			Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
			Set ComApplyTo of hoConditionalFormat to |CI$1
		Send Destroy to hoConditionalFormat
	Send Destroy to hoConditionalFormats
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "C1" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "C2" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComHeaderBold of hoColumn to True
			Set ComHTMLCaption of hoColumn to "<fgcolor=FF0000>C2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComCellValue of hoItems (ComAddItem(hoItems,10)) 1 to 11
		Set ComCellValue of hoItems (ComAddItem(hoItems,12)) 1 to 13
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1338
How can I remove a date-time zone

// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick 
	Forward Send OnComClick 
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Send ComRemoveTimeZone of hoChart "Z1"
	Send Destroy to hoChart
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voChart1
	Get ComChart to voChart1
	Handle hoChart1
	Get Create (RefClass(cComChart)) to hoChart1
	Set pvComObject of hoChart1 to voChart1
		Set ComPaneWidth of hoChart1 False to 18
		Set ComLevelCount of hoChart1 to 2
		Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
		Send ComMarkTimeZone of hoChart1 "Z1" "1/4/2010" "1/8/2010" 16744544 Nothing
	Send Destroy to hoChart1
End_Procedure
1337
How can I filter the check-boxes (method 2)
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComCustomFilter of hoColumn to "checked||-1|||unchecked||0"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
	Send Destroy to hoItems
End_Procedure
1336
How can I filter the check-boxes (method 1)
Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Variant voEditor
			Get ComEditor of hoColumn to voEditor
			Handle hoEditor
			Get Create (RefClass(cComEditor)) to hoEditor
			Set pvComObject of hoEditor to voEditor
				Set ComEditType of hoEditor to OLECheckValueType
				Set ComOption of hoEditor OLEexCheckValue2 to 1
			Send Destroy to hoEditor
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterType of hoColumn to OLEexCheck
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
		Get ComAddItem of hoItems True to Nothing
		Get ComAddItem of hoItems False to Nothing
	Send Destroy to hoItems
End_Procedure
1335
How can add a button to control

// Occurs when user clicks on the cell's button.
Procedure OnComButtonClick HITEM   llItem Integer   llColIndex Variant   llKey
	Forward Send OnComButtonClick llItem llColIndex llKey
	Variant v
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComCellCaption of hoItems llItem llColIndex to v
	Send Destroy to hoItems
	Showln "ButtonClick" v llKey
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 22
	Set ComHeaderHeight to 22
	Set ComAppearance to OLENone2
	Set ComDrawGridLines to OLEexRowLines
	Set ComScrollBySingleLine to False
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\auction.gif"
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Type" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComWidth of hoColumn to 48
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "Appearance" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueFormat to 1
			Set ComAlignment of hoColumn1 to OLECenterAlignment
			Set ComHeaderAlignment of hoColumn1 to OLECenterAlignment
		Send Destroy to hoColumn1
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
		Set ComCellValue of hoItems1 h 1 to "Button <b>1</b>"
		Set ComCellHasButton of hoItems1 h 1 to True
		Get ComAddItem of hoItems1 "Items.<b>CellButtonAutoWidth</b> property" to h
		Set ComCellValue of hoItems1 h 1 to " Button <b>2</b> "
		Set ComCellHasButton of hoItems1 h 1 to True
		Set ComCellButtonAutoWidth of hoItems1 h 1 to True
		Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
		Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>3</b> "
		Set ComCellHasButton of hoItems1 h 1 to True
		Set ComCellButtonAutoWidth of hoItems1 h 1 to True
		Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> property" to h
		Set ComItemHeight of hoItems1 h to 32
		Set ComCellValue of hoItems1 h 1 to " <img>2</img>Button <b>4</b> <img>pic1</img> "
		Set ComCellHasButton of hoItems1 h 1 to True
		Set ComCellButtonAutoWidth of hoItems1 h 1 to True
		Get ComAddItem of hoItems1 "Items.<b>CellHasButton</b> in splitted cells" to h
		Set ComCellValue of hoItems1 h 1 to " Button <b>5.1</b> "
		Set ComCellHasButton of hoItems1 h 1 to True
		Set ComCellButtonAutoWidth of hoItems1 h 1 to True
		Variant s
		Get ComSplitCell of hoItems1 h 1 to s
		Set ComCellValue of hoItems1 0 s to " Button <b>5.2</b> "
		Set ComCellHasButton of hoItems1 0 s to True
		Set ComCellButtonAutoWidth of hoItems1 0 s to True
		Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h
		Set ComCellValue of hoItems1 h 1 to "Visible when clicking the cell"
		Variant voEditor
		Get ComCellEditor of hoItems1 h 1 to voEditor
		Handle hoEditor
		Get Create (RefClass(cComEditor)) to hoEditor
		Set pvComObject of hoEditor to voEditor
			Set ComEditType of hoEditor to OLEEditType
			Send ComAddButton of hoEditor "B1" 1 0 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
			Send ComAddButton of hoEditor "B3" 2 1 "This is a bit of text that's shown when the cursor hovers the button B3" Nothing Nothing
			Send ComAddButton of hoEditor "B4" 1 1 "This is a bit of text that's shown when the cursor hovers the button B4" Nothing Nothing
			Set ComButtonWidth of hoEditor to 24
		Send Destroy to hoEditor
		Get ComAddItem of hoItems1 "Column.<b>Editor</b>, Items.<b>CellEditor</b>" to h
		Set ComCellValue of hoItems1 h 1 to 3
		Variant voEditor1
		Get ComCellEditor of hoItems1 h 1 to voEditor1
		Handle hoEditor1
		Get Create (RefClass(cComEditor)) to hoEditor1
		Set pvComObject of hoEditor1 to voEditor1
			Set ComEditType of hoEditor1 to OLECheckListType
			Send ComAddItem of hoEditor1 1 "Flag 1" Nothing
			Send ComAddItem of hoEditor1 2 "Flag 2" Nothing
			Send ComAddItem of hoEditor1 4 "Flag 4" Nothing
			Send ComAddItem of hoEditor1 8 "Flag 8" Nothing
			Send ComAddButton of hoEditor1 "C1" 1 0 "This is a bit of text that's shown when the cursor hovers the button C1" Nothing Nothing
			Send ComAddButton of hoEditor1 "C3" 2 0 "This is a bit of text that's shown when the cursor hovers the button C2" Nothing Nothing
			Send ComAddButton of hoEditor1 "C4" 1 0 "This is a bit of text that's shown when the cursor hovers the button C3" Nothing Nothing
			Set ComButtonWidth of hoEditor1 to 24
		Send Destroy to hoEditor1
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1334
Is it posible to store additional values against each item, cell, bar, link, such as custom values such string / numbers etc
Procedure OnCreate
	Forward Send OnCreate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 96
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Column" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComData of hoColumn to "Extra_Data_Column"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Item 1" to h
		Set ComItemData of hoItems h to "Extra_Data_Item 1"
		Set ComCellData of hoItems h 0 to "Extra_Data_Item 1_Cell_0"
		Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "B1" Nothing
		Set ComItemBar of hoItems h "B1" OLEexBarData to "Extra_B1_Data"
		Get ComAddItem of hoItems "Item 2" to h
		Set ComItemData of hoItems h to "Extra_Data_Item 2"
		Send ComAddBar of hoItems h "Task" "1/6/2001" "1/10/2001" "B2" Nothing
		Set ComItemBar of hoItems h "B2" OLEexBarData to "Extra_B2_Data"
		Send ComAddLink of hoItems "L1" (ComFindItem(hoItems,"Item 1",0,Nothing)) "B1" (ComFindItem(hoItems,"Item 2",0,Nothing)) "B2"
		Set ComLink of hoItems "L1" OLEexLinkUserData to "Extra_Link_Data"
	Send Destroy to hoItems
End_Procedure
1333
How do I set the parent item to show the total number of days for its children and also the minimum and maximum dates for its children

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComIndent to 11
	Set ComHasLines to OLEexSolidLine
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComAllowCellValueToItemBar of hoItems to True
	Send Destroy to hoItems
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Tasks" to Nothing
		Variant voColumn
		Get ComAdd of hoColumns "Start" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
		Send Destroy to hoColumn
		Variant voColumn1
		Get ComAdd of hoColumns "End" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
		Send Destroy to hoColumn1
		Variant voColumn2
		Get ComAdd of hoColumns "Duration" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComDef of hoColumn2 OLEexCellValueToItemBarProperty to 513
		Send Destroy to hoColumn2
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComShowNonworkingDates of hoChart to False
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 220
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h
		Get ComAddItem of hoItems1 "Project" to h
		Send ComAddBar of hoItems1 h "Summary" "9/21/2006" "10/3/2006" Nothing Nothing
		Variant h1
		Get ComInsertItem of hoItems1 h "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "9/21/2006" "9/24/2006" Nothing Nothing
		Variant h2
		Get ComInsertItem of hoItems1 h "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "9/24/2006" "9/28/2006" Nothing Nothing
		Variant h3
		Get ComInsertItem of hoItems1 h "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "9/28/2006" "10/3/2006" Nothing Nothing
		Send ComDefineSummaryBars of hoItems1 h "" h1 ""
		Send ComDefineSummaryBars of hoItems1 h "" h2 ""
		Send ComDefineSummaryBars of hoItems1 h "" h3 ""
		Set ComExpandItem of hoItems1 h to True
		Set ComItemBold of hoItems1 h to True
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1332
Is it possible to specify the distance between 2 bars to be at least 2 working days

// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM   llItem Variant   llKey
	Forward Send OnComBarResizing llItem llKey
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComSchedulePDM of hoItems llItem llKey to Nothing
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultItemHeight to 24
	Set ComAntiAliasing to True
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComAdd of hoBars "Task:Split" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComShortcut of hoBar to "Task"
				Set ComColor of hoBar to (RGB(0,0,0))
				Set ComHeight of hoBar to 17
				Set ComPattern of hoBar to OLEexPatternFrameShadow
			Send Destroy to hoBar
		Send Destroy to hoBars
		Set ComFirstVisibleDate of hoChart to "1/3/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComLinksWidth of hoChart to 2
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComAllowLinkBars of hoChart to False
		Set ComFirstWeekDay of hoChart to OLEexMonday
		Set ComNonworkingDaysPattern of hoChart to OLEexPatternBDiagonal
	Send Destroy to hoChart
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant h1
		Get ComAddItem of hoItems1 "Task 1" to h1
		Send ComAddBar of hoItems1 h1 "Task" "1/4/2001" "1/6/2001" "K1" Nothing
		Set ComItemBar of hoItems1 h1 "K1" OLEexBarKeepWorkingCount to True
		Variant h2
		Get ComAddItem of hoItems1 "Task 2" to h2
		Send ComAddBar of hoItems1 h2 "Task" "1/2/2001" "1/5/2001" "K2" Nothing
		Set ComItemBar of hoItems1 h2 "K2" OLEexBarKeepWorkingCount to True
		Send ComAddLink of hoItems1 "L1" h1 "K1" h2 "K2"
		Set ComLink of hoItems1 "L1" OLEexLinkShowRound to -1
		Set ComLink of hoItems1 "L1" OLEexLinkColor to 8421504
		Variant h3
		Get ComAddItem of hoItems1 "Task 3" to h3
		Send ComAddBar of hoItems1 h3 "Task" "1/2/2001" "1/6/2001" "K3" Nothing
		Set ComItemBar of hoItems1 h3 "K3" OLEexBarKeepWorkingCount to True
		Send ComAddLink of hoItems1 "L2" h2 "K2" h3 "K3"
		Set ComLink of hoItems1 "L2" OLEexLinkText to "<br><br><br><br>This link <u>delays</u> the bars<br>with <b>2</b> working days"
		Set ComLink of hoItems1 "L2" OLEexLinkPDMWorkingDelay to 2
		Set ComLink of hoItems1 "L2" OLEexLinkShowRound to -1
		Get ComSchedulePDM of hoItems1 0 "K1" to Nothing
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1331
The item is not getting selected when clicking the cell's checkbox. What should I do
// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM   llItem Integer   llColIndex
	Forward Send OnComCellStateChanged llItem llColIndex
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComSelectItem of hoItems llItem to True
	Send Destroy to hoItems
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Check" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellHasCheckBox to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Get ComAddItem of hoItems1 0 to Nothing
		Get ComAddItem of hoItems1 1 to Nothing
		Get ComAddItem of hoItems1 2 to Nothing
		Get ComAddItem of hoItems1 3 to Nothing
	Send Destroy to hoItems1
End_Procedure
1330
How can I add a summary item as a child or subitem of another one

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart False to 96
		Set ComFirstVisibleDate of hoChart to "1/1/2011"
		Set ComLevelCount of hoChart to 2
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Project" to hSummary
		Send ComAddBar of hoItems hSummary "Summary" "1/1/2011" "1/1/2011" "Sum" Nothing
		Variant hChild
		Get ComInsertItem of hoItems hSummary 0 "Task 1" to hChild
		Send ComAddBar of hoItems hChild "Task" "1/2/2011" "1/4/2011" "Task1" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task1"
		Get ComInsertItem of hoItems hSummary 0 "Task 2" to hChild
		Send ComAddBar of hoItems hChild "Task" "1/4/2011" "1/6/2011" "Task2" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task2"
		Get ComInsertItem of hoItems hSummary 0 "Task 3" to hChild
		Send ComAddBar of hoItems hChild "Task" "1/6/2011" "1/8/2011" "Task3" Nothing
		Send ComDefineSummaryBars of hoItems hSummary "Sum" hChild "Task3"
		Set ComExpandItem of hoItems hSummary to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1329
How can I make an item a subitem of another one
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant hSummary
		Get ComAddItem of hoItems "Project" to hSummary
		Variant hChild
		Get ComInsertItem of hoItems hSummary 0 "Task 1" to hChild
		Get ComInsertItem of hoItems hSummary 0 "Task 2" to hChild
		Get ComInsertItem of hoItems hSummary 0 "Task 3" to hChild
		Set ComExpandItem of hoItems hSummary to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1328
Is it possible to move a bar per drag and drop to another owner/item
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Members" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDef of hoColumn OLEexCellValueFormat to 1
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "9/20/2006"
		Set ComAllowLinkBars of hoChart to False
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects
		Set ComLevelCount of hoChart to 2
		Set ComPaneWidth of hoChart False to 96
		Variant voBars
		Get ComBars of hoChart to voBars
		Handle hoBars
		Get Create (RefClass(cComBars)) to hoBars
		Set pvComObject of hoBars to voBars
			Variant voBar
			Get ComItem of hoBars "Task" to voBar
			Handle hoBar
			Get Create (RefClass(cComBar)) to hoBar
			Set pvComObject of hoBar to voBar
				Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
			Send Destroy to hoBar
		Send Destroy to hoBars
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Member <b>1</b>" to h
		Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T102" "Task <b>102</b>"
		Set ComItemBar of hoItems h "T102" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "T102" OLEexBarCanMoveToAnother to True
		Get ComAddItem of hoItems "Member <b>2</b>" to h
		Get ComAddItem of hoItems "Member <b>3</b>" to h
		Get ComAddItem of hoItems "Member <b>4</b>" to h
		Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T103" "Task <b>103</b>"
		Set ComItemBar of hoItems h "T103" OLEexBarHAlignCaption to 18
		Set ComItemBar of hoItems h "T103" OLEexBarCanMoveToAnother to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1327
I have the chart displaying days, is it possible to display bars/tasks up to hours so inside days somehow
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComLevelCount of hoChart to 2
		Set ComUnitWidth of hoChart to 38
		Set ComPaneWidth of hoChart False to 28
		Set ComFirstVisibleDate of hoChart to "3/4/2011"
		Set ComUnitScale of hoChart to OLEexDay
		Set ComResizeUnitScale of hoChart to OLEexHour
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Default" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"ASS")) "Task" "3/7/2011" "3/7/2011 3:30:00 AM" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"EMB")) "Task" "3/7/2011 3:30:00 AM" "3/8/2011 9:15:00 AM" Nothing Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"TES")) "Task" "3/8/2011 9:15:00 AM" "3/8/2011 1:45:00 PM" Nothing Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1326
Is it possible to limit the height of the item while resizing
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM   llItem
	Forward Send OnComAddItem llItem
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComItemMinHeight of hoItems llItem to 18
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComItemMaxHeight of hoItems1 llItem to 72
	Send Destroy to hoItems1
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComItemsAllowSizing to OLEexResizeItem
	Set ComScrollBySingleLine to False
	Set ComBackColorAlternate to (RGB(240,240,240))
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Names" to Nothing
	Send Destroy to hoColumns
	Variant voItems2
	Get ComItems to voItems2
	Handle hoItems2
	Get Create (RefClass(cComItems)) to hoItems2
	Set pvComObject of hoItems2 to voItems2
		Get ComAddItem of hoItems2 "Mantel" to Nothing
		Get ComAddItem of hoItems2 "Mechanik" to Nothing
		Get ComAddItem of hoItems2 "Motor" to Nothing
		Get ComAddItem of hoItems2 "Murks" to Nothing
		Get ComAddItem of hoItems2 "Märchen" to Nothing
		Get ComAddItem of hoItems2 "Möhren" to Nothing
		Get ComAddItem of hoItems2 "Mühle" to Nothing
	Send Destroy to hoItems2
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComItem of hoColumns1 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortOrder of hoColumn to OLESortAscending
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Send ComEndUpdate
End_Procedure
1325
Is it possible to copy the hierarchy of the control using the GetItems method
Procedure OnCreate
	Forward Send OnCreate
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Def" to Nothing
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComPutItems (ComGetItems(Self,-1)) Nothing
End_Procedure
1324
I have found a property ReadOnly but this doesn't work correctly. I need the chart part of the control to be readonly too. Is it possible
Procedure OnCreate
	Forward Send OnCreate
	Set ComReadOnly to OLEexReadOnly
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
		Set ComBarsAllowSizing of hoChart to False
		Set ComAllowLinkBars of hoChart to False
	Send Destroy to hoChart
End_Procedure
1323
How can I select a column
// Occurs when the user presses a mouse button.
Procedure OnComMouseDown Short   llButton Short   llShift OLE_XPOS_PIXELS   llX OLE_YPOS_PIXELS   llY
	Forward Send OnComMouseDown llButton llShift llX llY
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
	Variant vIndex
			Get ComColumnFromPoint llX llY to vIndex
			Variant voColumn
		Get ComItem of hoColumns vIndex to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSelected of hoColumn to True
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComSelectAll of hoItems
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComMarkSearchColumn to False
	Set ComSingleSel to False
	Set ComFullRowSelect to OLEexRectSel
	Set ComSortOnClick to OLEexNoSort
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Get ComAdd of hoColumns1 "Column1" to Nothing
		Get ComAdd of hoColumns1 "Column2" to Nothing
	Send Destroy to hoColumns1
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"One")) 1 to "One"
		Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Two")) 1 to "Two"
	Send Destroy to hoItems1
	Send ComEndUpdate
End_Procedure
1322
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Item" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilter of hoColumn to "Child 1"
			Set ComFilterType of hoColumn to OLEexFilter
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Date" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComDisplayFilterButton of hoColumn1 to True
			Set ComDisplayFilterPattern of hoColumn1 to False
			Set ComDisplayFilterDate of hoColumn1 to True
			Set ComFilterList of hoColumn1 to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
			Set ComFilter of hoColumn1 to "12/28/2010"
			Set ComFilterType of hoColumn1 to OLEexDate
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Set ComFilterCriteria to "%0 or %1"
	Set ComDescription OLEexFilterBarOr to "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
	Set ComDescription OLEexFilterBarAnd to "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/27/2010"
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/28/2010"
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 1")) 1 to "12/29/2010"
		Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Child 2")) 1 to "12/30/2010"
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
1321
Is it possible exclude the dates being selected in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1320
How can I display a calendar control inside the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Date" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1319
Is it possible to include the dates as checkb-boxes in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox)
			Set ComFilter of hoColumn to "to 12/27/2010"
			Set ComFilterType of hoColumn to OLEexDate
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
1318
How can I filter items for dates before a specified date
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems)
			Set ComFilter of hoColumn to "to 12/27/2010"
			Set ComFilterType of hoColumn to OLEexDate
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
1317
Is it possible to filter dates
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Dates" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortDate
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComDisplayFilterDate of hoColumn to True
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAddItem of hoItems "12/27/2010" to Nothing
		Get ComAddItem of hoItems "12/28/2010" to Nothing
		Get ComAddItem of hoItems "12/29/2010" to Nothing
		Get ComAddItem of hoItems "12/30/2010" to Nothing
		Get ComAddItem of hoItems "12/31/2010" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1316
Is it possible to change the Exclude field name to something different, in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDescription OLEexFilterBarExclude to "Leaving out"
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1315
How can I display the Exclude field in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1314
Is it possible to show and ensure the focused item from the control, in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Set ComSelectItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) to True
		Set ComExpandItem of hoItems h to True
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1313
Is it possible to show only blanks items with no listed items from the control
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexNoItems)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1312
How can I include the blanks items in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to (OLEexShowBlanks + OLEexShowCheckBox)
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1311
How can I select multiple items in the drop down filter window, using check-boxes
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to OLEexShowCheckBox
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1310
Is it possible to allow a single item being selected in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to False
			Set ComFilterList of hoColumn to OLEexSingleSel
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1309
How can I display no (All) item in the drop down filter window
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComDescription OLEexFilterBarAll to ""
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComFilterList of hoColumn to OLEexNoItems
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1308
Is it possible to display no items in the drop down filter window, so only the pattern is visible
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComDisplayFilterPattern of hoColumn to True
			Set ComFilterList of hoColumn to OLEexNoItems
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1307
How can I specify the time-scale available when zoom-in/zoom-out or enlarging the chart
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 3
		Set ComUnitScale of hoChart to OLEexDay
		Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
		Set ComLabel of hoChart OLEexHour to ""
		Set ComLabel of hoChart OLEexMinute to ""
		Set ComLabel of hoChart OLEexSecond to ""
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1306
How can I enable zoom-in/zoom-out or enlarging the chart, using the mouse middle button
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 3
		Set ComUnitScale of hoChart to OLEexDay
		Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1305
How can I enable zoom-in/zoom-out or enlarging, using the chart's header

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 3
		Set ComUnitScale of hoChart to OLEexDay
		Set ComAllowResizeChart of hoChart to (OLEexAllowChangeUnitScale + OLEexAllowResizeChartHeader)
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1304
How can I enable resizing the chart, using the mouse middle button
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 3
		Set ComUnitScale of hoChart to OLEexDay
		Set ComAllowResizeChart of hoChart to (OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
		Set ComMaxUnitWidth of hoChart to 128
		Set ComMinUnitWidth of hoChart to 8
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"")) "" "1/8/2001" "1/8/2001" "Info" "Click the <b>middle</b> mouse button and start dragging"
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1303
How can I enable resizing the chart, using the chart's header
Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Task" to Nothing
	Send Destroy to hoColumns
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComFirstVisibleDate of hoChart to "1/1/2001"
		Set ComPaneWidth of hoChart False to 48
		Set ComShowNonworkingDates of hoChart to False
		Set ComLevelCount of hoChart to 3
		Set ComUnitScale of hoChart to OLEexDay
		Set ComAllowResizeChart of hoChart to OLEexAllowResizeChartHeader
		Set ComMaxUnitWidth of hoChart to 128
		Set ComMinUnitWidth of hoChart to 8
	Send Destroy to hoChart
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task A")) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task B")) "Task" "1/6/2001" "1/10/2001" "K1" Nothing
		Send ComAddBar of hoItems (ComAddItem(hoItems,"Task C")) "Task" "1/10/2001" "1/14/2001" "K1" Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure
1302
Is it possible to auto-numbering the children items but still keeps the position after filtering

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComAdd of hoColumns "Items" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComDisplayFilterButton of hoColumn to True
			Set ComFilterType of hoColumn to OLEexFilter
			Set ComFilter of hoColumn to "Child 2"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComAdd of hoColumns1 "Pos.1" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "1 ropos ''"
			Set ComPosition of hoColumn1 to 0
			Set ComWidth of hoColumn1 to 32
			Set ComAllowSizing of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn2
		Get ComAdd of hoColumns2 "Pos.2" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComFormatColumn of hoColumn2 to "1 ropos ':'"
			Set ComPosition of hoColumn2 to 1
			Set ComWidth of hoColumn2 to 32
			Set ComAllowSizing of hoColumn2 to False
		Send Destroy to hoColumn2
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn3
		Get ComAdd of hoColumns3 "Pos.3" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComFormatColumn of hoColumn3 to "1 ropos ':|A-Z'"
			Set ComPosition of hoColumn3 to 2
			Set ComWidth of hoColumn3 to 32
			Set ComAllowSizing of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn4
		Get ComAdd of hoColumns4 "Pos.4" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComFormatColumn of hoColumn4 to "1 ropos '|A-Z|'"
			Set ComPosition of hoColumn4 to 3
			Set ComWidth of hoColumn4 to 32
			Set ComAllowSizing of hoColumn4 to False
		Send Destroy to hoColumn4
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn5
		Get ComAdd of hoColumns5 "Pos.5" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComFormatColumn of hoColumn5 to "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
			Set ComDef of hoColumn5 OLEexCellValueFormat to 1
			Set ComPosition of hoColumn5 to 4
			Set ComWidth of hoColumn5 to 32
			Set ComAllowSizing of hoColumn5 to False
		Send Destroy to hoColumn5
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn6
		Get ComAdd of hoColumns6 "Pos.6" to voColumn6
		Handle hoColumn6
		Get Create (RefClass(cComColumn)) to hoColumn6
		Set pvComObject of hoColumn6 to voColumn6
			Set ComFormatColumn of hoColumn6 to "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
			Set ComDef of hoColumn6 OLEexCellValueFormat to 1
			Set ComPosition of hoColumn6 to 5
			Set ComWidth of hoColumn6 to 48
			Set ComAllowSizing of hoColumn6 to False
		Send Destroy to hoColumn6
	Send Destroy to hoColumns6
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComApplyFilter
	Send ComEndUpdate
End_Procedure
1301
Is it possible to auto-numbering the children items too

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voChart
	Get ComChart to voChart
	Handle hoChart
	Get Create (RefClass(cComChart)) to hoChart
	Set pvComObject of hoChart to voChart
		Set ComPaneWidth of hoChart True to 0
	Send Destroy to hoChart
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Variant voColumns
	Get ComColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Get ComAdd of hoColumns "Items" to Nothing
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn
		Get ComAdd of hoColumns1 "Pos.1" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComFormatColumn of hoColumn to "1 rpos ''"
			Set ComPosition of hoColumn to 0
			Set ComWidth of hoColumn to 32
			Set ComAllowSizing of hoColumn to False
		Send Destroy to hoColumn
	Send Destroy to hoColumns1
	Variant voColumns2
	Get ComColumns to voColumns2
	Handle hoColumns2
	Get Create (RefClass(cComColumns)) to hoColumns2
	Set pvComObject of hoColumns2 to voColumns2
		Variant voColumn1
		Get ComAdd of hoColumns2 "Pos.2" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComFormatColumn of hoColumn1 to "1 rpos ':'"
			Set ComPosition of hoColumn1 to 1
			Set ComWidth of hoColumn1 to 32
			Set ComAllowSizing of hoColumn1 to False
		Send Destroy to hoColumn1
	Send Destroy to hoColumns2
	Variant voColumns3
	Get ComColumns to voColumns3
	Handle hoColumns3
	Get Create (RefClass(cComColumns)) to hoColumns3
	Set pvComObject of hoColumns3 to voColumns3
		Variant voColumn2
		Get ComAdd of hoColumns3 "Pos.3" to voColumn2
		Handle hoColumn2
		Get Create (RefClass(cComColumn)) to hoColumn2
		Set pvComObject of hoColumn2 to voColumn2
			Set ComFormatColumn of hoColumn2 to "1 rpos ':|A-Z'"
			Set ComPosition of hoColumn2 to 2
			Set ComWidth of hoColumn2 to 32
			Set ComAllowSizing of hoColumn2 to False
		Send Destroy to hoColumn2
	Send Destroy to hoColumns3
	Variant voColumns4
	Get ComColumns to voColumns4
	Handle hoColumns4
	Get Create (RefClass(cComColumns)) to hoColumns4
	Set pvComObject of hoColumns4 to voColumns4
		Variant voColumn3
		Get ComAdd of hoColumns4 "Pos.4" to voColumn3
		Handle hoColumn3
		Get Create (RefClass(cComColumn)) to hoColumn3
		Set pvComObject of hoColumn3 to voColumn3
			Set ComFormatColumn of hoColumn3 to "1 rpos '|A-Z|'"
			Set ComPosition of hoColumn3 to 3
			Set ComWidth of hoColumn3 to 32
			Set ComAllowSizing of hoColumn3 to False
		Send Destroy to hoColumn3
	Send Destroy to hoColumns4
	Variant voColumns5
	Get ComColumns to voColumns5
	Handle hoColumns5
	Get Create (RefClass(cComColumns)) to hoColumns5
	Set pvComObject of hoColumns5 to voColumns5
		Variant voColumn4
		Get ComAdd of hoColumns5 "Pos.5" to voColumn4
		Handle hoColumn4
		Get Create (RefClass(cComColumn)) to hoColumn4
		Set pvComObject of hoColumn4 to voColumn4
			Set ComFormatColumn of hoColumn4 to "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
			Set ComDef of hoColumn4 OLEexCellValueFormat to 1
			Set ComPosition of hoColumn4 to 4
			Set ComWidth of hoColumn4 to 32
			Set ComAllowSizing of hoColumn4 to False
		Send Destroy to hoColumn4
	Send Destroy to hoColumns5
	Variant voColumns6
	Get ComColumns to voColumns6
	Handle hoColumns6
	Get Create (RefClass(cComColumns)) to hoColumns6
	Set pvComObject of hoColumns6 to voColumns6
		Variant voColumn5
		Get ComAdd of hoColumns6 "Pos.6" to voColumn5
		Handle hoColumn5
		Get Create (RefClass(cComColumn)) to hoColumn5
		Set pvComObject of hoColumn5 to voColumn5
			Set ComFormatColumn of hoColumn5 to "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
			Set ComDef of hoColumn5 OLEexCellValueFormat to 1
			Set ComPosition of hoColumn5 to 5
			Set ComWidth of hoColumn5 to 48
			Set ComAllowSizing of hoColumn5 to False
		Send Destroy to hoColumn5
	Send Destroy to hoColumns6
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant h
		Get ComAddItem of hoItems "Root 1" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
		Set ComExpandItem of hoItems h to True
		Get ComAddItem of hoItems "Root 2" to h
		Get ComInsertItem of hoItems h "Child 1" to Nothing
		Get ComInsertItem of hoItems h "Child 2" to Nothing
	Send Destroy to hoItems
	Send ComEndUpdate
End_Procedure